www.gusucode.com > 搜索动力2010 v4.9 > 搜索动力2010 v4.9\code\skin.asp

    <%sysdate=year(dateadd("h",timediff,now()))&"-"&month(dateadd("h",timediff,now()))&"-"&day(dateadd("h",timediff,now()))%>
<%if bespeak_check="true" and cstr(bespeak_time)=cstr(sysdate) then%>
<link rel="stylesheet" href="<%=sysurl%>skin/<%=bespeak_skin%>/style.css" type="text/css" media="screen">
<%else%>
<link rel="stylesheet" href="<%=sysurl%>skin/<%=skin%>/style.css" type="text/css" media="screen">
<%end if%>
<%listskin(server.MapPath(sysurl&"skin/"))
function listskin(path)
dim fso
dim objFolder
dim objSubFolders
dim objSubFolder
set fso=server.CreateObject("scripting.filesystemobject")
on error resume next
set objFolder=fso.GetFolder(path)
set objSubFolders=objFolder.Subfolders
for each objSubFolder in objSubFolders
Response.Write "<link rel=""alternate stylesheet"" disabled type=""text/css"" href="""&sysurl&"skin/"&objSubFolder.name&"/style.css"" title="""&objSubFolder.name&""">"
next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function%>
<script type="text/javascript" src="<%=sysurl%>js/skin.js" mce_src="<%=sysurl%>js/skin.js"></script>